home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CMCD0704.ISO / Software / Shareware / Utilitare / Girder / girder331c.exe / {app} / help / LuaCOM_Examples.GML < prev    next >
Extensible Markup Language  |  2003-12-08  |  17KB  |  230 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <Girder><Group Name="LuaCOM Examples" Identifier="4790" Enabled="TRUE"><Command Name="Load LuaCom" Identifier="4847" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAgAAAAAAAAAAAAAABAAA
  3. AAsAAABMb2FkTHVhQ29tAAYAAABwcmludAAWAAAATHVhQ09NIGZhaWxlZCB0byBsb2FkAA8AAABM
  4. dWFDT00gbG9hZGVkLgAAAAAAAAAAAAwAAAAMAAAAQgAAAMb//3/lAACATAAAAIcAAAACAAAAqgAA
  5. gEwAAADHAAAAAgAAAAAAAAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>if LoadLuaCom () < 0 then
  6.   print ("LuaCOM failed to load")
  7.  else
  8.    print ("LuaCOM loaded.")
  9. end
  10. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="Unload LuaCom" Identifier="4848" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAQAA
  11. AA0AAABVbmxvYWRMdWFDb20AAAAAAAAAAAADAAAADAAAAAIAAAAAAAAA</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>UnloadLuaCom ()
  12. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="CoolMon - Processor Usage" Identifier="4801" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAABAAAAAAAAAAAAAAADQAA
  13. AAQAAABET00AFAAAAGx1YWNvbV9DcmVhdGVPYmplY3QAEwAAAE1zeG1sMi5ET01Eb2N1bWVudAAG
  14. AAAAYXN5bmMABQAAAGxvYWQAFwAAAGh0dHA6Ly9sb2NhbGhvc3Q6NjEzMDAABQAAAHByb2MAEQAA
  15. AHNlbGVjdFNpbmdsZU5vZGUAHAAAAENvb2xNb24vUmF3L1Byb2Nlc3Nvcl9Vc2FnZQAPAAAAY29s
  16. bGVjdGdhcmJhZ2UABgAAAHByaW50ABIAAABQcm9jZXNzb3IgVXNhZ2U6IAAFAAAAdGV4dAAAAAAA
  17. AAAAABsAAABMAAAAhwAAAEIAAAATAAAADAAAAMcAAADG//9/1IABAAwAAAAQAQAARwEAAAIAAAAM
  18. AAAA0AEAAAcCAABCAAAAkwEAAEQAAAATAAAATAIAAAIAAACMAgAAxwIAAIwBAAAOAwAAAgAAAAAA
  19. AAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>DOM = luacom_CreateObject("Msxml2.DOMDocument")
  20. DOM.async = 0
  21. DOM:load ("http://localhost:61300")
  22. proc = DOM:selectSingleNode ("CoolMon/Raw/Processor_Usage")
  23. DOM = nil
  24. collectgarbage ()
  25.  
  26. print ("Processor Usage: ",proc.text)
  27.  
  28. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="Popup Message" Identifier="4802" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAQAA
  29. AA0AAABQb3B1cE1lc3NhZ2UAAAAAAAEAAAAIAAAAPShub25lKQABAAAABAAAAAAMAAAAAAAAAAAA
  30. AAAEAAAAFAAAAGx1YWNvbV9DcmVhdGVPYmplY3QADgAAAFdTY3JpcHQuU2hlbGwABgAAAFBvcHVw
  31. AA8AAABjb2xsZWN0Z2FyYmFnZQAAAAAAAAAAABQAAACEAAAADAAAAEcAAABCAAMAEgEAAAsBAACQ
  32. AAAACwAAAEsAAACLAAAAywAAAEIAAwBSAQAARAAAABIBAADMAAAAAgADAEsBAACBAQAAAAAAAAMA
  33. AAAwAAAAEwAAAAAAAAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>function PopupMessage (Text,SecondsToWait,Title,Type)
  34. -- see MSDN Wscript.Shell Popup for documentation
  35.   local WshShell,x
  36.   WshShell = luacom_CreateObject("WScript.Shell")
  37.   x = WshShell:Popup(Text,SecondsToWait,Title,Type)
  38.   WshShell = nil
  39.   collectgarbage ()
  40.   return x
  41. end
  42.  
  43. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="WMI Hard drives" Identifier="4800" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAABQAAAAAAAAAAAAAAJAAA
  44. AAMAAABmcwAHAAAAbHVhY29tAA0AAABDcmVhdGVPYmplY3QAGwAAAFNjcmlwdGluZy5GaWxlU3lz
  45. dGVtT2JqZWN0AAgAAABvdXRGaWxlAA8AAABDcmVhdGVUZXh0RmlsZQARAAAAYzpcaGFyZGRyaXZl
  46. LnR4dAALAAAAZGlza2RyaXZlcwAKAAAAR2V0T2JqZWN0ACoAAAB3aW5tZ210czp7aW1wZXJzb25h
  47. dGlvbkxldmVsPWltcGVyc29uYXRlfQAMAAAASW5zdGFuY2VzT2YAEAAAAFdpbjMyX0Rpc2tEcml2
  48. ZQAOAAAAZGlza2RyaXZlc19lbgAOAAAAR2V0RW51bWVyYXRvcgAFAAAASXRlbQAFAAAATmV4dAAK
  49. AAAAV3JpdGVMaW5lAAoAAABDYXB0aW9uOiAACAAAAENhcHRpb24ADgAAAERlc2NyaXB0aW9uOiAA
  50. DAAAAERlc2NyaXB0aW9uABAAAABJbnRlcmZhY2VUeXBlOiAADgAAAEludGVyZmFjZVR5cGUADwAA
  51. AE1hbnVmYWN0dXJlcjogAA0AAABNYW51ZmFjdHVyZXIADQAAAFBhcnRpdGlvbnM6IAALAAAAUGFy
  52. dGl0aW9ucwAKAAAAU2NzaUJ1czogAAgAAABTY3NpQnVzAA8AAABTY3NpVGFyZ2V0SUQ6IAANAAAA
  53. U2NzaVRhcmdldElEAAcAAABTaXplOiAABQAAAFNpemUAAQAAAAAGAAAAQ2xvc2UADwAAAGNvbGxl
  54. Y3RnYXJiYWdlAAAAAAAAAAAAcwAAAEwAAACOAAAAxwAAAEIAAAATAAAADAAAAFABAACHAQAABgAA
  55. gEIAAAATAQAATAAAAA4CAABHAgAAQgAAAJACAADHAgAAQgAAANMBAABMAAAATgMAAMwBAABCAAAA
  56. EwMAAAwDAADQAwAAQgAAAJMDAACMAwAAJxIAgAwBAAAQBAAARwQAAIwDAACQBAAAQoABAJ0AAAAC
  57. AAAADAEAABAEAADHBAAAjAMAABAFAABCgAEAnQAAAAIAAAAMAQAAEAQAAEcFAACMAwAAkAUAAEKA
  58. AQCdAAAAAgAAAAwBAAAQBAAAxwUAAIwDAAAQBgAAQoABAJ0AAAACAAAADAEAABAEAABHBgAAjAMA
  59. AJAGAABCgAEAnQAAAAIAAAAMAQAAEAQAAMcGAACMAwAAEAcAAEKAAQCdAAAAAgAAAAwBAAAQBAAA
  60. RwcAAIwDAACQBwAAQoABAJ0AAAACAAAADAEAABAEAADHBwAAjAMAABAIAABCgAEAnQAAAAIAAAAM
  61. AQAAEAQAAEcIAAACAAAADAMAANADAABCAAAAkwMAACrt/38MAQAAkAgAAAIAAABEAAAAEwAAAEQA
  62. AADTAQAARAAAABMDAADMCAAAAgAAAAAAAAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>fs = luacom.CreateObject("Scripting.FileSystemObject")
  63.  
  64. outFile = fs:CreateTextFile("c:\\harddrive.txt", 1)
  65.  
  66. diskdrives = luacom.GetObject("winmgmts:{impersonationLevel=impersonate}"):InstancesOf("Win32_DiskDrive")
  67.  
  68. diskdrives_en = luacom.GetEnumerator(diskdrives)
  69. Item = diskdrives_en:Next()
  70.  
  71. while Item do
  72.   outFile:WriteLine("Caption: "..Item:Caption())
  73.   outFile:WriteLine("Description: "..Item:Description())
  74.   outFile:WriteLine("InterfaceType: "..Item:InterfaceType())
  75.   outFile:WriteLine("Manufacturer: "..Item:Manufacturer())
  76.   outFile:WriteLine("Partitions: "..Item:Partitions())
  77.   outFile:WriteLine("ScsiBus: "..Item:ScsiBus())
  78.   outFile:WriteLine("ScsiTargetID: "..Item:ScsiTargetID())
  79.   outFile:WriteLine("Size: "..Item:Size())
  80.   outFile:WriteLine("")
  81.  
  82.   Item = diskdrives_en:Next()
  83. end
  84.  
  85. outFile:Close()
  86.  
  87. fs = nil
  88. diskdrives = nil
  89. diskdrives_en = nil
  90. collectgarbage ()
  91.  
  92. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="WMI Create Process" Identifier="4803" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAwAAAAAAAAAAAAAAAwAA
  93. ABEAAABXTUlDcmVhdGVQcm9jZXNzAAIAAAAuAAwAAABOb3RlUGFkLmV4ZQAAAAAAAQAAAAgAAAA9
  94. KG5vbmUpAAEAAAACAAAAAAsAAAAAAAAAAAAAAAkAAAACAAAALgAHAAAAbHVhY29tAAoAAABHZXRP
  95. YmplY3QALQAAAHdpbm1nbXRzOntpbXBlcnNvbmF0aW9uTGV2ZWw9SW1wZXJzb25hdGV9IVxcAAwA
  96. AABccm9vdFxjaW12MgAEAAAAR2V0AA4AAABXaW4zMl9Qcm9jZXNzAAcAAABDcmVhdGUADwAAAGNv
  97. bGxlY3RnYXJiYWdlAAAAAAAAAAAAIQAAAMQAAAALAAAAKAAAgAcAAAASAAAATAAAAI4AAADHAAAA
  98. CwAAAAcBAADdAAAAQoACAJIAAACLAAAAUAEAAIcBAABCgAIA0gAAAMsAAADQAQAASwAAAMQAAABC
  99. gAIAEgEAAEQAAADSAAAARAAAAJIAAAAMAgAAAoACAAsBAABBAQAAAAAAAAcAAAAwAAAAEwAAAAwA
  100. AABHAAAAhwAAAAIAAAAAAAAA</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>function WMICreateProcess (strComputer,Process)
  101.   local objWMIService,objProcess,result
  102.   strComputer = strComputer or "."
  103.   objWMIService = luacom.GetObject ( "winmgmts:{impersonationLevel=Impersonate}!\\\\" ..strComputer.."\\root\\cimv2")
  104.   objProcess = objWMIService:Get("Win32_Process")
  105.   result = objProcess:Create (Process,nil,nil,nil)
  106.   objProcess = nil
  107.   objWMIService = nil
  108.   collectgarbage ()
  109.   return result
  110. end
  111.  
  112. WMICreateProcess (".","NotePad.exe")
  113. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="WMI Exist Process" Identifier="4807" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAABAAAAAAAAAAAAAAABAAA
  114. ABAAAABXTUlFeGlzdFByb2Nlc3MABgAAAHByaW50AAIAAAAuAAwAAABOb3RlcGFkLmV4ZQAAAAAA
  115. AQAAAAgAAAA9KG5vbmUpAAEAAAACAAAAAAwAAAAAAAAAAAAAAAoAAAACAAAALgAHAAAAbHVhY29t
  116. AAoAAABHZXRPYmplY3QALQAAAHdpbm1nbXRzOntpbXBlcnNvbmF0aW9uTGV2ZWw9SW1wZXJzb25h
  117. dGV9IVxcAAoAAABFeGVjUXVlcnkAKQAAAHNlbGVjdCAqIGZyb20gV2luMzJfUHJvY2VzcyB3aGVy
  118. ZSBOYW1lPSIAAgAAACIADgAAAEdldEVudW1lcmF0b3IABQAAAE5leHQADwAAAGNvbGxlY3RnYXJi
  119. YWdlAAAAAAAAAAAANgAAAEQBAAALAAAAKAAAgAcAAAASAAAATAAAAI4AAADHAAAACwAAAJ0AAABC
  120. gAMAkgAAAIsAAAAQAQAARwEAAEsAAACHAQAA3QAAAEQAAADGCwCAQoADANIAAABMAAAAzgEAAMsA
  121. AABCgAMAEgEAAAsBAAAQAgAAQoADAFIBAADG//9/kgEAAEsBAADnAQCAiwEAABgAAICSAQAACwEA
  122. ABACAABCgAMAUgEAAGr9/39EAAAAkgAAAEQAAADSAAAARAAAABIBAABMAgAAAoADAIsBAADBAQAA
  123. AAAAAAkAAAAwAAAAEwAAAEwAAAAMAAAAhwAAAMcAAADCvwAAAgAAAAAAAAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>function WMIExistProcess (strComputer,Process)
  124.   local objWMIService,colProcesses,enum,item,i
  125.   strComputer = strComputer or "."
  126.   objWMIService = luacom.GetObject ( "winmgmts:{impersonationLevel=Impersonate}!\\\\" ..strComputer)
  127.   colProcesses = objWMIService:ExecQuery("select * from Win32_Process where Name=\""..Process.."\"",nil,48)
  128.   enum = luacom.GetEnumerator (colProcesses)
  129.   item = enum:Next ()
  130.   i = 0
  131.   while item do
  132.     i = i + 1
  133.     item = enum:Next ()
  134.   end
  135.   objWMIService = nil
  136.   colProcesses = nil
  137.   enum = nil
  138.   collectgarbage ()
  139.   return i
  140. end
  141.  
  142.  
  143. print (WMIExistProcess (".","Notepad.exe"))
  144. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="Get Computer Name" Identifier="4804" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAgAA
  145. ABAAAABHZXRDb21wdXRlck5hbWUABgAAAHByaW50AAAAAAABAAAACAAAAD0obm9uZSkAAQAAAAAA
  146. AAAABAAAAAAAAAAAAAAABAAAABQAAABsdWFjb21fQ3JlYXRlT2JqZWN0ABAAAABXU2NyaXB0Lk5l
  147. dHdvcmsADQAAAENvbXB1dGVyTmFtZQAPAAAAY29sbGVjdGdhcmJhZ2UAAAAAAAAAAAAPAAAAhAAA
  148. AAwAAABHAAAAQgABABIAAAALAAAAjgAAAFIAAABEAAAAEgAAAMwAAAACAAEASwAAAIEAAAAAAAAA
  149. BwAAADAAAAATAAAATAAAAAwAAADCvwAAAgAAAAAAAAA=</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>function GetComputerName ()
  150.   local WshNetwork,x
  151.   WshNetwork = luacom_CreateObject("WScript.Network")
  152.   x = WshNetwork.ComputerName
  153.   WshNetwork = nil
  154.   collectgarbage ()
  155.   return x
  156. end
  157.  
  158. print (GetComputerName())
  159. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="Get MAC Addresses" Identifier="4805" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAwAAAAAAAAAAAAAABQAA
  160. ABAAAABHZXRNQUNBZGRyZXNzZXMABAAAAE1BQwACAAAALgAJAAAAZm9yZWFjaGkABgAAAHByaW50
  161. AAAAAAABAAAACAAAAD0obm9uZSkAAgAAAAEAAAAACAAAAAAAAAAAAAAADgAAAAIAAAAuAAcAAABs
  162. dWFjb20ACgAAAEdldE9iamVjdAAtAAAAd2lubWdtdHM6e2ltcGVyc29uYXRpb25MZXZlbD1pbXBl
  163. cnNvbmF0ZX0hXFwADAAAAFxyb290XGNpbXYyAAoAAABFeGVjUXVlcnkAbwAAAFNFTEVDVCBNQUNB
  164. ZGRyZXNzIEZST00gV2luMzJfTmV0d29ya0FkYXB0ZXIgV0hFUkUgKChNQUNBZGRyZXNzIElzIE5v
  165. dCBOVUxMKSBBTkQgKE1hbnVmYWN0dXJlciA8PiAnTWljcm9zb2Z0JykpAAoAAABlbnVtSXRlbXMA
  166. DgAAAEdldEVudW1lcmF0b3IABQAAAGl0ZW0ABQAAAE5leHQACAAAAHRpbnNlcnQACwAAAE1BQ0Fk
  167. ZHJlc3MADwAAAGNvbGxlY3RnYXJiYWdlAAAAAAAAAAAANQAAAMQAAAALAAAAKAAAgAcAAAASAAAA
  168. TAAAAI4AAADHAAAACwAAAAcBAADdAAAAQgACAFIAAABLAAAAUAEAAIcBAABCAAIAkgAAAEwAAAAO
  169. AgAAiwAAAEIAAgDTAQAAzAEAAJACAABCAAIAUwIAAEwCAACnAwCAywAAACgAAIARAAAA0gAAAMwC
  170. AADLAAAATAIAABADAADCPwMAAgACAMwBAACQAgAAQgACAFMCAACq+/9/RAAAAFIAAABEAAAAkgAA
  171. AEwDAAACAAIAywAAAAEBAAAAAAAACwAAADAAAAATAAAADAAAAIcAAABCAAAAUwAAAMwAAABMAAAA
  172. DAEAAAIAAAAAAAAA</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>
  173. function GetMACAddresses(strComputer)   -- gets MAC address of all network adapters, returns a table of addresses
  174.   local objWMIService,colWMIMAC,t
  175.   strComputer = strComputer or "."
  176.   objWMIService = luacom.GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\" ..strComputer .. "\\root\\cimv2")
  177.   colWMIMAC = objWMIService:ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
  178.   enumItems = luacom.GetEnumerator (colWMIMAC)
  179.   item = enumItems:Next ()
  180.   while item do
  181.     t = t or {}
  182.     tinsert (t,item:MACAddress())
  183.     item = enumItems:Next()
  184.   end
  185.   objWMIService = nil
  186.   colWMIMAC = nil
  187.   collectgarbage ()
  188.   return t
  189. end
  190.  
  191. MAC = GetMACAddresses (".")
  192. foreachi (MAC,print)
  193.  
  194. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command><Command Name="Get Network Adapter Information" Identifier="4806" Enabled="TRUE"><StateCount>1</StateCount><StateBegin>1</StateBegin><StateCurrent>1</StateCurrent><StateInvert>FALSE</StateInvert><Binary Encoding="Base64">G0x1YUABBAQEIAYJCBLmW6GwubJBCAAAAD0obm9uZSkAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAgAA
  195. ABYAAABXTUlHZXROZXR3b3JrQWRhcHRlcnMAAgAAAC4AAAAAAAEAAAAIAAAAPShub25lKQABAAAA
  196. AQAAAAARAAAAAAAAAAAAAAAZAAAAAgAAAC4ABwAAAGx1YWNvbQAKAAAAR2V0T2JqZWN0AC0AAAB3
  197. aW5tZ210czp7aW1wZXJzb25hdGlvbkxldmVsPWltcGVyc29uYXRlfSFcXAAMAAAAXHJvb3RcY2lt
  198. djIACgAAAEV4ZWNRdWVyeQAjAAAAU0VMRUNUICogRlJPTSBXaW4zMl9OZXR3b3JrQWRhcHRlcgAK
  199. AAAAZW51bUl0ZW1zAA4AAABHZXRFbnVtZXJhdG9yAAUAAABpdGVtAAUAAABOZXh0AAYAAABwcmlu
  200. dAAOAAAATUFDIEFkZHJlc3M6IAALAAAATUFDQWRkcmVzcwADAAAAdDoADAAAAEFkYXB0ZXJUeXBl
  201. AAQAAABJRDoADgAAAEFkYXB0ZXJUeXBlSUQABAAAACAgIAAJAAAARGV2aWNlSUQABQAAACAgcyAA
  202. BwAAAFN0YXR1cwAFAAAATmFtZQAIAAAAdGluc2VydAAPAAAAY29sbGVjdGdhcmJhZ2UAAAAAAAAA
  203. AABOAAAAxAAAAAsAAAAoAACABwAAABIAAABMAAAAjgAAAMcAAAALAAAABwEAAN0AAABCAAIAUgAA
  204. AEsAAABQAQAAhwEAAEIAAgCSAAAATAAAAA4CAACLAAAAQgACANMBAADMAQAAkAIAAEIAAgBTAgAA
  205. TAIAAOcJAIDLAAAAKAAAgBEAAADSAAAAzAIAAAcDAABMAgAAUAMAAEIAAwCHAwAATAIAANADAABC
  206. AAQABwQAAEwCAABQBAAAQgAFAIcEAABMAgAA0AQAAEIABgAHBQAATAIAAFAFAABCAAcATAIAAJAF
  207. AADCvwcAAgACAMwFAADLAAAATAIAAFADAADCPwMAAgACAMwBAACQAgAAQgACAFMCAABq9f9/RAAA
  208. AFIAAABEAAAAkgAAAAwGAAACAAIAywAAAAEBAAAAAAAABgAAADAAAAATAAAADAAAAEcAAAACAAAA
  209. AAAAAA==</Binary><OSD>FALSE</OSD><Submatch>FALSE</Submatch><Topmost>TRUE</Topmost><OneMatch>FALSE</OneMatch><UseVar>FALSE</UseVar><MatchHidden>FALSE</MatchHidden><MatchNum>1</MatchNum><ActionType>4</ActionType><ActionSubType>34</ActionSubType><sValue1>function WMIGetNetworkAdapters(strComputer)   -- returns a table of all network adapters
  210.   local objWMIService,colWMIMAC,t
  211.   strComputer = strComputer or "."
  212.   objWMIService = luacom.GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\" ..strComputer .. "\\root\\cimv2")
  213.   colWMIMAC = objWMIService:ExecQuery("SELECT * FROM Win32_NetworkAdapter")
  214.   enumItems = luacom.GetEnumerator (colWMIMAC)
  215.   item = enumItems:Next ()
  216.   while item do
  217.     t = t or {}
  218.     print ("MAC Address: ",item:MACAddress(),"t:",item:AdapterType (),"ID:",item:AdapterTypeID(),"   ",item:DeviceID(),"  s ",item:Status(),item:Name())
  219.     tinsert (t,item:MACAddress())
  220.     item = enumItems:Next()
  221.   end
  222.   objWMIService = nil
  223.   colWMIMAC = nil
  224.   collectgarbage ()
  225.   return t
  226. end
  227.  
  228. WMIGetNetworkAdapters (".")
  229. </sValue1><bValue1>FALSE</bValue1><bValue2>FALSE</bValue2><bValue3>FALSE</bValue3></Command></Group></Girder>
  230.